home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
BTH2SRC.ZIP
/
MAIN.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1995-12-03
|
8KB
|
114 lines
{ TheDraw Pascal Crunched Screen Image. Date: 12/03/95 }
procedure mainansi;
const
IMAGEDATA_WIDTH=80;
IMAGEDATA_DEPTH=24;
IMAGEDATA_LENGTH=1766;
IMAGEDATA : array [1..1766] of Char = (
#15,#16,#25, #9, #9,'▄',#25, #4, #8,#26, #4,'▄',#26, #5,'█',#26, #5,
'▄',#25, #3, #9,'▄','▄',' ',' ', #1,'▓','▄',#25, #5,#10,'▀','▀',#18,
'█','▀','▓',#16,'▓','▄','▄',#25, #2, #1,'▄', #9,#17,'░', #1,#16,'▄',
' ','▀','▄',' ', #9,'▄',' ',' ','▄',#24,' ',' ', #1,'▄', #9,#17,'░',
#1,#16,'▄',' ','▀','▄',#25, #2, #8,'▄','▄',#26,#23,'█','▄','▄','▄',
#25, #2, #1,'■','▄',' ',' ', #9,'▀',#25, #2,#10,#18,'▓', #2,#16,'█',
#10,#18,'▒', #2,#16,'█','▀',#10,#18,'▓','▒',#16,'▀',' ',' ', #1,'▀',
' ',' ','■',' ', #9,'▀','▓','▀',' ',' ', #1,'▄','▄',#17,' ', #9,'▄',
#16,'█','▄',#24,#25, #2, #1,'▀',#25, #4, #8,'▄',#26,#28,'█',#23,'█',
#16,'█','█','▄',#25, #3, #9,'▄',#25, #2,#10,#18,'▓', #2,#16,'█',#10,
#18,'░', #2,#16,'█',' ','▐',#10,#18,'░',#16,' ',#18,'█','▀','▓', #2,
#16,'█','▄','▄','▄',' ',' ', #1,'■',' ','▐', #0,#17,'░', #9,'■',#16,
'▀',' ',' ',#23,'▓','█',#24,#16,#25, #2, #1,'▄','▓',' ',' ', #8,'▄',
#26,#31,'█',#23,'█','█',#16,'█','█','▄',' ', #9,'▀','▓','▀',' ',' ',
#10,#18,'▒', #2,#16,'█','█','█',' ',' ',#10,#18,'░',#16,' ',#18,'▓',
#2,#16,'█',#10,#18,'▒', #2,#16,'█',' ',' ',#10,'▄','▄', #2,'▄','▄',
' ', #1,'▀', #9,#17,'░', #1,#16,'▀','■',' ',' ', #9,'▐',#23,'▓',#16,
'▌',#24,#25, #5, #8,#26,'#','█',#23,'█',#16,'█','█','▌',#25, #2, #9,
'▀',' ',#10,#18,'▒', #2,#16,'█',#15,#18,'b', #2,#16,'█',' ',' ','█',
' ',#10,#18,'▓', #2,#16,'█',#10,#18,'░', #2,#16,'█',' ',' ',#10,#18,
'▓', #2,#16,'▀','▀','▀',' ',' ', #8,'.','s','c','.', #9,'▄','█',#23,
'▓',#24,#16,' ', #1,'▄','■', #9,'▀',' ', #8,'▐',#26,'$','█',#23,'█',
'▒',#16,'█',#25, #4,#10,#18,'░', #2,#16,'█','█','█',' ',' ', #8,#18,
'░',#16,' ',#10,#18,'▒', #2,#16,'█','█','█',' ',' ',#10,#18,'▒',#16,
' ',#18,'█','▀','▓', #2,#16,'█','▄',' ', #1,'▄', #9,#17,'▄',#23,'▓',
#16,'▀',' ','▄',#23,'▓',#24,#16,#25, #4, #8,#26,#29,'█','▀','▀','▀',
#26, #3,'█',#23,'▀','▓','▒','░',#16,' ', #1,'▄', #9,'■',' ',' ', #2,
#26, #3,'█',' ','▐', #8,#18,'▒',#16,' ',#10,#18,'▒',' ',#15,'t', #2,
#16,'█',' ',' ', #8,#18,'░',#16,' ',#10,#18,'▓', #2,#16,'█',#10,#18,
'▒', #2,#16,'▀', #0,#17,'▀','░', #9,'▐',#16,'▀', #1,'▄', #9,'▄',#17,
'█','▀',#16,'▀',#24,' ',' ', #1,'▄','▓',' ', #8,#26,#28,'█','▌',#12,
'▐',#23,'█',#22,'▄', #6,#16,'▄',' ', #8,'▀','█','█',#23,'▓','░','▄',
#16,#25, #4, #2,'▀','█','█','█','▄', #8,#18,'▐','▓',#16,' ',#10,#18,
'░', #2,#16,'█','█','█',' ',' ', #8,#18,'▒',#16,' ',#10,#18,'▓', #2,
#16,'█',#10,#18,'░', #2,#16,'▌', #1,'▀', #0,#17,'░', #1,#16,'▄', #0,
#17,'░','▄', #1,#16,'▀',#24,#25, #2,'▀',' ', #8,'▐',#26,#26,'█','▀',
#12,'▄',#26, #3,'█',#22,'░', #6,#16,'▄', #8,'▀','█',#23,'▒','░',#16,
'▌',#25, #7, #2,'▀','▀', #8,'▀','▀',' ', #2,#26, #3,'█',' ','▐', #8,
#18,'▒',#16,' ',#10,#18,'▒', #2,#16,'█','█','█',' ',' ','▄',#10,'▄',
#2,'▄','█',#24,' ', #9,'▀',' ',' ', #1,'▐',' ', #8,#26, #8,'█','▀',
#12,'▄', #6,'▄','▄', #8,'▀','▀',#26, #9,'█','▀',#12,'▄','█',#23,'█',
#16,#26, #4,'█',#22,'▌', #6,#16,'▌', #8,'▐',#23,'▒', #7,#16,'▓',' ',
#1,'▀',#25, #2,'▄', #9,#17,'▒', #1,#16,'▄',' ','▀',#25, #3, #2,'▀',
'█','█','█','▄','█', #8,#18,'▓',#16,' ',#10,#18,'▒', #2,#16,'█',#15,
#18,'h', #2,#16,'█',' ',' ','█',#10,#18,'▒', #2,#16,'█','█',#24,' ',
#1,'▓','▌',#25, #2, #8,'▐','█','█','█','▓','█','█','█',' ',#12,'█',
'█','█',#22,'█','▄','░',#16,' ', #8,#26, #3,'█','▀','▀','▀',#12,'▄',
'▄',#26, #8,'█',#22,'▒',#16,' ', #8,#23,'▒', #7,#16,'▀',#25, #2, #1,
'▀',#25, #2,'▀',#25, #2,'▀',' ', #9,'▄',#25, #3, #2,'▀','▀', #8,'▀',
'▀',' ',#10,#18,'░', #2,#16,'█','█','█',' ',' ','█',#10,#18,'░', #2,
#16,'█',#19,'▓',#24,#16,' ',' ', #1,'▀','▄','■',' ',' ', #8,'▀',#26,
#5,'█','▌',#12,'▐',#26, #5,'█',#26, #3,'▄',#26, #3,'█','▀','▀','▀',
' ','▄',#26, #3,'█',#22,'▓',#16,' ', #7,'▀',#25, #3, #9,'▄',' ',' ',
#1,'▀',' ',' ','▄','▓','▄',' ', #9,'▀','▓','▀',' ', #1,'▀', #9,'▀',
' ',' ', #1,'▐',' ',' ', #2,#26, #3,'█',' ',' ','█',#10,#18,'░', #2,
#16,'█',#19,'▒',#24,#16,#25, #8, #8,'▀','▓','▓','█','▓','█','▄',#12,
'▀',#26,#19,'█','▀','▀',#25, #7, #1,'▄','▓','▄',' ',' ','▄',' ',' ',
'■',#25, #2, #9,'▀',' ', #1,'▀','▌',#25, #3, #2,#26, #3,'█',' ',' ',
'█','█', #3,#18,'▄', #2,#19,'▒', #3,#16,'▄','▄',#24,' ', #1,'▀',#25,
#2,'▄', #9,#17,'▒', #1,#16,'▄',#25, #3, #8,'▀','█','█',' ',#12,#26,
#17,'█','▌',#25, #2, #1,'▄',' ',' ','■','▓','▀',' ',' ', #9,'▀',' ',
#1,'▀','▓','▄','▄',' ',' ', #7,#26,#18,'▄', #3,'▄', #7,'▄', #3,'▄',
#7,#19,'░',#24,#16,' ',' ', #1,'▀',#25, #2,'▀',#25, #3, #9,'▀',#25,
#2,#12,#26, #3,'█',#22,'▀',#16,'▀',#26,#13,'█','▄',' ', #1,'▀','█',
'▀',#25, #4,'▄',' ', #9,'▀',#25, #4, #7,'█', #8,'░','░',#25, #9,'░',
' ','░','░',#15,'▄',' ','▄','▄', #8,'░','░', #7,#19,'▒',#24,#16,' ',
#9,'▄',' ',' ', #1,'▀',' ',' ','▄','▓','▀',' ',' ',#15,#26, #3,'▄',
#12,'▀','▀','█','█',#22,'░', #6,#16,'▄',#12,'▀',#26,#10,'█','▀',#25,
#6, #9,'▀',#25, #2, #1,'▄',' ',' ', #9,'▄',#25, #2, #7,'█', #8,'░',
#25,#17,#15,'▀','█', #8,'░', #7,#19,'▓',#24,#16,' ',' ', #1,'▄','▓',
'▄',#25, #4,#15,'▄','▄','▄', #7,'▄',#15,'▀','▀','█','█','▄','▄','▄',
#6,'▀', #1,'▄','▄',' ',#12,'▀','▀',#26, #3,'█','▀','▀', #8,'▄',#25,
#4, #1,'▀','▓','▄','▄',' ',' ', #9,'▀',#17,'▓', #1,#16,'▀','▄',' ',
' ','▀',' ', #8,#23,'░',#16,'░',#25,#18,#15,'▐', #8,'░',#23,'░',#24,
#16,#25, #2, #1,'▀',' ',' ', #9,'▀',' ',#15,'▄','▄','█','█','▀','█',
'█','█', #7,'▄','▄','▄',#15,'▄', #7,'▄', #1,'▀','▀', #6,'▄','█', #8,
#22,'▀','▓',#16,'▄','▄', #6,'▄','▄','█', #8,#22,'▀','▓','▀','▀',#16,
' ','▄','▄',#25, #3, #1,'▄',#25, #6,'░',' ', #8,#23,'░',#16,'░','▌',
#25,#17,#15,'▐', #8,'░',#23,'▒',#24,#16,' ', #9,'▀',' ', #1,'▄','■',
' ',#15,'▄','█','█','█',#23,'▀',#16,' ',#26, #5,'█',#23,'▒',#16,'█',
'▄', #6,'▀',#26, #7,'█',' ',#26, #5,'█','▄','▀', #8,'▓',#22,'▀', #6,
#16,'▄',#25, #2, #1,'■',' ', #9,'▄',' ',' ', #1,'▀','▓',' ', #8,#23,
'▒',#16,'░','▌',#25,#18,'░',#23,'▒',#24,#16,' ',' ', #1,'▀',' ',' ',
#15,'▄',#23,'▓',#16,#26, #3,'█', #7,'▓','▄',#15,'▀','█','▀',#26, #5,
'█','▄', #6,'▀','▀',#26, #3,'█','▌','▐',#26, #6,'█','▌','▐','█','█',
'█','▄',#25, #2, #1,'▄',' ', #9,'▓',#25, #2, #8,#23,'▒',#16,'░','█',
'▄',#25,#17,'░',#23,'▒',#24,#16,' ', #1,'▓',' ',' ',#15,'▄',#23,'▓',
#16,#26, #5,'█',#23,'▄', #7,#16,'█',' ',#15,#26, #5,'█','▀', #7,'▄',
'▓',#15,'▀', #7,'▄',#15,'▄', #6,'▀','▀',' ',' ','█','█','█','▀','▀',
'▀', #7,'▄','▄', #6,'▀',#12,#26, #3,'▄','▀','▄',#25, #6, #8,#23,'░',
#16,'░','░','▀','▀',' ','▀','░','░',' ','░',' ','░',#25, #5,'░',' ',
'░','░',#23,'░',#24,#16,' ', #1,'▐',' ', #7,'▄',#15,#23,'▒',#16,'█',
#23,'▀',#16,#26, #3,'█',#23,'█',#16,'█',#23,'▌', #7,#16,'▌',#15,'▐',
#26, #3,'█','▌', #7,'▐',#15,'█', #7,'▄','▓',#15,#26, #4,'█',#26, #3,
'▄',#26, #3,'█',#23,'▌', #7,#16,'▌',#12,'▐','█','█',' ','▄','█','▀',
#6,'▄', #1,'▀','█','█',#25, #2, #7,#26,#21,'▀',#24,' ',' ','▄',#15,
#23,'░','▀',' ','▐','█',#16,#26, #5,'█', #7,'▓','▄',#15,'▀',#26, #3,
'█',#23,'▓','█',#16,#26,#15,'█',#23,'░',#16,' ',#12,'█','█','█','▄',
'▄',#22,'▄','░', #6,#16,'▄', #1,'▀','▓',#25, #5, #8,#26,#11,'▀',' ',
#10,'▀',' ', #8,'▀',#24,' ', #7,'▐',#26, #3,'█',#23,' ',#15,'▀',#26,
#3,'█','▀','▌',' ',' ', #7,#16,'█','▄',#15,'▀',#23,'▒',#16,'▓','▀',
#26,#16,'█',#23,'▌',#16,' ',#12,#26, #4,'█',#22,'▓','▒', #6,#16,'▌',
#25, #2, #8,#26, #3,'.', #7,'b','e','y','o','n','d',#15,'t','h','e',
'h','o','r', #7,'i','z','o','n','!','?', #8,#26, #3,'.',#24);
begin;
UnCrunch (IMAGEDATA,ScreenAddr[ (1*2) + (1*160) -162],IMAGEDATA_LENGTH);
end;